home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
a_utils
/
ffccflow
/
ffccflow.lha
/
ffccc+flow
/
flow
/
make_cms.com
< prev
next >
Wrap
Text File
|
1992-07-31
|
728b
|
31 lines
$! This procedure makes a complete FLOW program for
$! compilation on IBM/CMS.
$ copy *.for/excl=(vmsflow.for,unixflow.for) flow.fortran/log
$ purge flow.fortran
$ open/read in flow.fortran
$ open/write out cmsflow.fortran
$loop:
$ read/end=end_loop/err=end_loop in line
$ if f$locate("INCLUDE '",line) .eq. f$length(line)
$ then
$ write out "''line'"
$ goto loop
$ endif
$ file = f$element(1,"'",line) - "'"
$ write sys$output "Including ''file'"
$ open/read infile 'file
$loop2:
$ read/end=end_loop2/err=end_loop2 infile linein
$ write out "''linein'"
$ goto loop2
$end_loop2:
$ close infile
$ goto loop
$end_loop:
$ close in
$ close out
$ purge cmsflow.fortran
$ delete flow.fortran.
$ write sys$output "Finished"
$ exit